home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 8 / FM Towns Free Software Collection 8.iso / t_os / edo / rex / getpsp.bas < prev    next >
BASIC Source File  |  1994-06-01  |  452b  |  16 lines
  1. 10 'get_psp Test
  2. 20 CLEAR ,,1024,970000,68192:DEFINT A-Z:LOADM "h:bas_lib.rex",0
  3. 30 CLS:DIM PSP%(512)
  4. 40 CALLM 0,17,0,256,VARPTR(PSP%(0))
  5. 50 A&=VARPTR(PSP%(0))
  6. 60 FOR A=0 TO 127
  7. 70   B=PEEK(A&+A)
  8. 80   IF B<32 THEN PRINT USING "(##)";B; ELSE PRINT CHR$(B);
  9. 90 NEXT:PRINT 
  10. 100 FOR A=128 TO 256
  11. 110   B=PEEK(A&+A)
  12. 120   IF B<32 THEN PRINT USING "(##)";B; ELSE PRINT CHR$(B);
  13. 130 NEXT
  14. 140 MOUSE 0:MOUSE 1,,,1
  15. 150 WHILE MOUSE(2,0)=0:WEND:END
  16.